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SEP=1 SYS.SRCISYSGETLKI.MAR;1 


-TITLE SYSGETLKI = GET LOCK MANAGER INFORMATION SYSTEM SERVICE 
- IDENT *ybe-000" 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
INCLUSION OF THE ABOVE lth NOTICE. A SOFTWARE OR ANY OTHER 


E Al 
OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
TRANSFERRED. 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
oeepokat ihe NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


PRR RSASARSAALAALEAEALALESAL ELE ESSERE ESE SEES EEE E SEE EEE EERE RSET EES E SSCL ESSE 


p++ 
; FACILITY: VMS Executive, System services. 


ABSTRACT: 


Return system/cluster lock manager information. 


ENVIRONMENT: Kernel Mode 
AUTHOR: Rod N. Gamache, CREATION DATE: 15-November-1982 
MODIFIED BY: 


V03-014 RNGOO14 Rod N. Gamache 3-Aug-1984 
Make all Lock waiting states map to LKISC_WAITING. 
v03-013 RNGOO13 Rod N. Gamach 24-Jul-1984 


e 
Stall access to lock database if cluster is re-configuring, 
call lock manager routine to perform stall operation. 


v03-012 RNGOO12 Rod N. Gamache otfieyn tes 
Restore the PCB address on successive loops through 
the main proccess code, when doing a wildcard search. 


v03-011 RNGOO11 Rod N. Gamache 26-Mar-1984 
Fix invalid REMLKID that is returned on Local copy LOCKS. 
v03-010 RNGOO10 Rod N. Gamache 21-Mar-1984 


Return correct EPID value, return 2 nere songuor as in the List 
of individ 


items (REMLKID & remCSID). Set size ual items in 


iist requests. 
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SEP-1984 SYS.SRCISYSGETLKI.MAR;1 
Return SS$_IVMODE on access mode violations. 


CwH3009 Cw Hobbs 28-F eb-1984 

Change IPL gyochron ization so that $GETLKI can be called 
PL$_ASTDEL. This lets ue LSE interrogate 
GETOVI can return 


RNGOO08 Rod N. Gamache 05-Dec-1983 
nange references to LOCK STRUCTURES to reflect changes made 
n the Lock Manager. 


RNGOO07 Rod N. Gamache 07-0ct-1983 
Fix synchronization pretes caused by exec routine that 
lowers IPL; wrote in a 


ine code to replace exec routine. 


CWH3006 CW Hobbs 23-Sep-1983 
Fix broken branch 
RNGOO0S Rod N. Gamache 31-Aug-1983 


Deliver AST's only on success. 
Allow EXEC mode and KERNEL mode users access to system locks. 
Return zero REMLKID if CSID is zero. 


RNGOO004 Rod N. Gamache 05-Aug-1983 

Add REMLKID item code. 

Return SS$_NOMORELOCK error instead of SS$_NOMOREPROC. 

Add support for distributed list items (LOCKS, BLOCKEDBY 

and BLOCKING). 

Make sure user has sufficient BYCNT quete for List operations. 
Return proper CSID in the event the CSID of the RSB is zero. 


RNGOOO3 Rod N. Gamache 05-May-1983 
Return “‘external’’ PID wherever necessary. Return 
SS$_NOWORLD error instead of SS$_NOPRIV. 

Add’ support for distributed GETLRI. 


$RB0073 Steve Beckhardt 30-Mar-1983 
Fix broken ASSUME statement. 
RNGOOO1 Gamache 14-Mar-1983 


Rod N. 
Remove SYSNAM bit from RMOD field. Shange RMOD to be a 
full byte. Use RMOD in RSB rather than LKB. 
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EQUATED SYMBOLS: 


= 


MAXSTRUC = 2 Maximum number of structures 


event flag number ar 


; address of the toe +) 
f item identifiers 


block address 
address 


ASTPRE = ge st peraemeter 
RESERV = 58 RESERVED 


One quedword local is left on stack for routines which may 
manipulete values before returning thea. 
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255 


FFFFFFFS OCAL SPACE = -B | 
FFFFFFFC AVED_ IPL = ; We will reference stored IPL off the treme 
9000000: bre tie tt = <LKIS_LASTLKBS*XFF>-1 ; maximum LKBTBL item number 
900000C MAX_RSB_ITEM = <LKIS_LASTRSBE*XFF>-1 ; maximum RSBTBL item number 


Data type codes (all numeric types have same code) 


Ot st 2 2 2 od 4 2 8 Oe we a 8 OW 8 Dd 


VALUE = 0 3 mmerts value 

9 BSTRING = 1 ; blank illeg string 

36 : CSTRING = 2 3 counted ascii string 

3% ; AST control block extensions 

3% : SDEFINI ACB 
r -=ACBSL_KAST+4 : 
yt F  ACB_L_DADOR -BLKL 1 ; data buffer address 
i F A -+ the -BLKL 1 3; event flag number 
Y ‘ ACB_L_10S8 -BLKL 1 ; completion AST routine addr 
{ REF A =i Fount » KL i : ey Ser oe Fay 
I 5S SDEF  ACB-L~ILIST ‘ ; item descriptor List 
I ACB_C_IDESC = 12 ; item descriptor size 
i SDEFEND ACB 

OWN STORAGE: 
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5agcen inrommarion svbreh se npppmtoge BENET MCE Heer YOR POOP, 


ay contetos the saxiaue ites ee - both of the ites 


scik structures, indexed by structure nude 


THE RanzhsecitEn 


: bs tedles contain e@ word oftect a by @ o8,erte ¢ for peck {tes 
S set loved 97 0 Sype of etry ture ine ¢ ode ¢ +} alon thee * 
; tee in the | ive bits, and IP the item type in thege bits. 
: he types are value, counted site, and bi tite’ Ser] .. 
LKBTBL: 
asstec: -BLKB 4 6°<MAX_LKB_ITEM*1> : define LKB table 
-BLEB 6°<MAX_RSB_ITEM*1> ; define RSB table 
- SAVE 3; seve current location counter 
Define entries to LKBTBL 
' LIASGSK_ZERO = 0 3 Define empty holder 
{0.¥ ; EPID of es 
teen TA tte catrent 4 ; id cyt 4 : subolagh retereas ob count 
star TATE ; current pt ee of ock 
Pine nsc hee Damme cy Ps 
1!” Ht c teipvitubse ; te LOCK 1D of Lock 


HIG HR ht ewe 


fe " SYSTERCL: eae ny aad of vayaten —- has | 
BLE Seber ecteehctatst ol orton, tenses “o 


RSBITA BL oceTh weakre Crear... WALUE,= ; list of locks Blocking LKID 
RSBITR LOCK “EE GROFL. VALUE .LKISC_LENGTH z List of associated locks 
- RESTORE 3 restore location counter 
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by action 
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333393333- 
sespeeeeees 
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SPECIAL_LEN = <.-SPECIAL>/6 
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one 


i Table fo D coven Ot stone which aust be handled 


econ lock 
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: resource" nase = on resource 
Pie tiene 


gk . sopesiotes 


; compute number of entries 
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-SBTTL SYSGETLEI = GETLKI get lock manager information systes service 


a 
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FUNCTIONAL DESCRIPTION: 


This service allows a eresese fo receive information about the 
locks, or any process locks whic t has the privilege to examine. 


CALLING SEQUENCE: 


CALLS/CALLG 
Actually. this posers MUST be called through the systes 
service dispatche 
INPUTS: 
me PCB address of requesting process 
EFNCAP) maser of the oyene {tas to set when all of the 
LKIDCAP) oe Fey a taining the ID of the 
ress of a iy ain ess ° 
process for whi ick the containing: is Being requested 
ITALSTCAP) address of a list of item descriptors of the fore: 


eeesneneceeceerocsor oon erereecrcst 
: ITEM CODE ! BUF. LENGTH ! 
weet erw nr see scewr screen rcewrn se ween n e 
: BUFFER ADDRESS : 
: ADDRESS TO RETURN LENGTH '! 
Sem eoren ete treo oc rece nseewroc anon n @ 


10SB (AP) addrees of a quadword 1/0 status block to receive final 
ASTADR (AP) address of an AST routine to cailed when all of the 
sted data has been supplied. 
ASTPRACAP) bit ast parameter 
IMPLICIT INPUTS: 
IPL <= IPLS_ASTDEL This allows other system services which are 
holding eautexes to call SGETLKI. 
OUTPUTS: 
none 
IMPLICIT OUTPUTS: 
none 
ROUTINE VALUE: 


completion. 
can not be read by the calling access sode, 


Se Oe Se Se Oe Se Oe Oe Se Se Se Se Oe Se Se Se Se Se Se Se Se Se Se Se Be Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se 


S3$-heewib «= Tomcat 
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wr a a apie eH BAL ee | 
aT fete t the al eros h word can not 
a ‘4 


ah seh fate stone ner 


Pe Oe Se Se Ge Oe Se Se Se Se Se 


Wo more tent’ non-pageg. seorch a 


6} ; SIDE bine 


BS i 
9000000¢ -PSECT VEXEPAGED 3; Only entry mask in this progres section 
op O85 Pb He the g “MERZ ASAE RS ROR ARGRG, RIO Att> 
10000¢ -PSECT WSYSGETLE! 
: 51 T ise 
apm He Bees, ea mars 
emote LOCK Tntornation 


ae: ‘ Lotonen Fee Boca 
tee | Ra 


Check for, and clear event fleg 


GR beets 


{Chee Check for, and clear possible 1088 


a pce 


> 

,' 

+, 

obtooobitt Ht 
J ve 

$ % 

‘+ 


AA 
, 
Hey HE 
Ai 


Oe HH 
"4 ? 
‘e 3 
04 46 Vol tdete ast, if pre te R46 still our PCB ae and 89 
x rt: ; has t sodress Of the Lock we want tatormation 
4 f He bs: un TADR(AP) gig Naar 
a ; BSu_ASTCNT(R4) 3 Is quote exceeded? 


mm re 


vorebob SvSEDstBSS="AMGET IMrOMMA Yow SrBTER GE NgmHER1RRE BENECTY PANO MaeresYOLOBe. 4 PoOe fs 


78 15 06 ‘ Bi—EO 86-358 i Branch if so and return error 
r : Check if information is contained on another system in the cluster 
D6 *s $ T REMLK K i 
2f°RF 3 ‘ : pseu get ee I : | fet ronete Lx LKI block if needed 
7 € 
D6 ; he h th iten 6 ip blocks, validaeti eave 
} ; Vent tier and moving secess! Ble teas. “R A zero Thea loent bah terminates 
f ; 
y i At this Kos 
D ; . rep ode eagress 
v\ ; * Lk ogeryes 
i ; ait 2 ooinese ock block toferaet ten or zero 
4 ; ter to argument | 
55 OC AC DO y 108: > AIEISAG2 FS ; heck ist fever list t eddress | 
+ 7 
vv 158 . 
ef 8 ' ; mii a i int : Get Tene “ident! ser it | 
i NORD (RS), 308 Cheek sa fattte desert tor see | 
$7 70 mova 85) +, R7 seston ureturn address | 
SHL ny, 3 ay Peace “aecesete ty check 
i? VL R9 : e aderess 
MOVE : 
’ : chat ; a1) tus Vadim 
00000000 8 — ; chee write accessibility "et f putter 
4 BE i Restore Ri tor 
5! 178: 8.8 -GRET i Return error if nestess Ste 


We will raise | PLS_ SYNCH te Lock he LKB. We will 
have to verity thes” che tee is sti Ll valid, beters proceeding. 


the IPL will pe restored Oy tne This Is" gone toot just tow the sPerrnn® 


ata tot suaers® s bu iiss Th uxK 


i inf 
roared fe = veer” - Be Vetonal in + be ah tt ye A. 


beriPL @1PLS_SYNCH 
cer rent ds eet RG 


+ Oe Oe Se Se Se Oe Ge Oe oe 


i Meant IPL to sync access to structures 
con, t tre erence user's process space 


s the yy x stilt ok? 
f a 7 c heck f or error a ae 
8 the ame Sddress pd. \ the seme? 


ine tal RS a eine 
fey eG sy gent Lock 


nve 
eturn to hh, 


O@LCKSGL_1DTBLCR4) 
T 
st mah ag oe 


238: a S$_IVLOCKID.RO 


ell ‘ 


00000000 'FF 44 o 


oo | 


y duconmaion see se Meese BRME] PAROS HR AM Phas PP 1G, 


3; Check item code and return the info to user. 
of ren 06 Sion rout 


by *s ene TER e iden Fi tier ee h~ ites info. 
He BH a ei 


v4] seer ORRAT 1m svdte 


wy 
258: 


restored to IPLS_ASTDEL 


pres Ab, 158 ; i Beck for next, de Gooeripter if ok 


A ° i i 
308: + e55t. CCVI0,R0 ; Access violation 


| 

5$ mov?  ] XQUOTA,RO 3 T t 

358: + esst_e AST quote exceeded | 

408: OV ARAM, zu it | 

: pve e330 SAP RO Illegal item or request | 
$08: MOVZUL 9 #SSS_NORMAL .RO 3; Normal return 


; Set the event fleg, post the completion status, and declare a completion AST 
bret: ML i Save comple tat 
ns i a reacte tock bi eck? 


| 
; 
| 
: Else. de at, the remote lock bi | 

58: IPL AVE > Restor to that on entry to serv a. | 
| 

| 

' 


set t PCB ecess 
MOVL t prepess I 
shot t priority increment 
event fleg © set 
J$8 } 
108: ROVL t address of 10 


tk 


grencé 7 


ceriPat letion ay bites. error! 
1 at ASYPRALAPS Cha mit the complet t enekst® —_ 


peatere  Senpras He status 


aSEagsess 
B= 
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-SBTTL GET_REMLKI=- Get remote LKI block 


FUNCTIONAL DESCRIPTION: 
Routine to get the remote LK] block if necessary. 
CALLING SEQUENCE: 


0 2 te ee 
a 
o 


J$8/8S8 

INPUTS: | 
RG PCB address | 
RS ie address i 
ail ERO 


IMPLICIT INPUTS: 
IPL = IPLS_ASTDEL 


OuTPUTS: 
success/failure of ration * special fl 
a PCB address ie ws 
Rg L ress 
aii Address of remote LK] block or zero 
IMPLICIT OUTPUTS: 
none 


RO-R3.RB destroyed. 


| 
' 
| 
' 
SIDE EFFECTS: 


50 01 9 cer remit ong ASsyae, succ ess, block 
1A & ; a te erty 108 vag is ecol ts to this systee 
sf i + pect =cStocns r A in ess ¢ <hr still local 


1 
fin} 
a * G vena request for information 
to remote Syates 


ROVL SCHSGL_CURPCB RS Get our 
108: RSB Re" urn to ca phen 


§ .DSABL LSB 


00000000°GF 16 
54 00000000°EF 80 
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And send 
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-SBTTL CHECKITEM = Validate item identifier 


. 
* 


FUNCTIONAL DESCRIPTION: 


Routine to validate item identifier and return information 
about the ites. 


CALLING SEQUENCE: 

J$8/8S8 
INPUTS: 

ae itea identifier 

ait REROTE Lk] BLOCK or zero 
IMPLICIT INPUTS: 

IPL = IPLS_SYNCH 


OuTPuTS: 
mee s/failure of ation ¢ fal fl 
eras ewes 2 martes Se 
b structure pth 
& tea length 
R item address 
Lb) item type code 
IMPLICIT OUTPUTS: 
none 
SIDE EFFECTS: 
none 
609 CHECKITER: 
3 Assume bed ites code 
o rt 3 Get item nuaber 
oR1,R2 3; Get structure number 
i Error if structure r zero 
. @RAXSTRUC 3 aruct number valid? 
MAXCOUNT-1(R2) ; neck eck nan tte yejves (1 origin) 
T : il nuaber 
ASE -<108,, 3088.41 3 nee on structure bese 


; LEB returs ites 


Ws fa Pte 


Get sad t gedress or tks: Tree table 


; 
' 
ah 


mn i i a a rer se ee re ee ee 


K Maagen inrornation siren SE Ng-ser—198e 2:14:11 YAK/mE macro vO4-00 | Page 15 
; RSB return ites 

woes FBvh, NSBTHCEE OF SE Saaresstat Bis fMee"ttave 

; wate: ye «hee n itea table 

i fet ottset inte gate structure 

st ? rere resofe Lil block? 

; s this les in remote LKI block? 

; ise, get offset in remote LEI block 


i fore c¢ ete 
z Indicate thet no special lookup needed 
$08: i Get ites type code 
3 t ites Length 
808: > Return to caller 


ro 
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ee 
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INFORMATION reteh se 


to user's buffer a et 9 88: 38; in 


-SBTTL WMOVEIT - Rove data to user's buffer 
3e¢ 
; FUNCTIONAL DESCRIPTION: 


Rove the r ted 


te to user buffer. Zero fil 
Return oetue dete 
been pr rebed. 


ength to user. 
CALLING SEGUENCE: 

J$8/8S8 
INPUTS: 


tes tt 


IMPLICIT INPUTS: 

IPL = IPLS_SYNCH 
OUTPUTS: 

none 
IMPLICIT OUTPUTS: 

IPL = IPLS_ASTDEL 
ROUTINE VALUE: 


ss$-Recvi0 


SIDE EFFECTS: 
Registers RI-R4 destroyed 


essful completion 


eee fe cpr ee ge 


8 : 
a 
— 


3 Call routine to check for special conditions 
aI 
& 


nm HEE hoes Hel, te 


Assumes user's 


Pers sacTSysee Yel aR; 1 


{te 


of buffer. 
fer has 


tempt to access return size 


i Was atte to pecfat Lookys 0 neeaea 


porctas gastos 


EEE 


2€ 50 

55 

53 
oe T 
ot 

00 3 


rove 


ce 6 AS 


f HOCK manacen inrommaqion sySteh Se ng-sepctgse 62:1H:]1 YAK/UME Meera yO4-O | Page 


; Or if error 


3 Check for counted string, and find actual length if so. 


ea. fife 


Rove the date 


ba mena a0 gf0-R6.(R7) 


nOWRT (RB) ,708 
ce 


ROVY a3 
Bess ‘ { (nas 
ily BL - S$$_NORMAL .RO 
R1,R2,R3> 
R! 


it ress anon. 


ROVZ7WL $_ACCVIO,RO 
eet 


; ar i Hats 6 spectol string? 
; Get length and skip Length byte 


oe neser rs 


: & ok: ote ue user’ s buffer, zero fill 


patch went "return length? 


if viguch was not a writeable 


; t — if it fit 
; ee eval ia ge fh xa, ‘too short” ff ; size 


r "return by ater ov over flew ndicator 


pool vat fede ts, fon needed? 


; Return to caller 


; Return error code 
; Return to caller 


N 2 
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2— 50 =—«E9 6 4 § BLBC RO,408 ; Br if error 
; Check for counted string, and find actual length if so. 
55 D1 EMPL = #CSTRING,RS ; Is this special string? 
08 12 0968 71 BN 168 ti i mer ° 
53 4 9A 8 ar MOVZBL (R4)+,R3 ; Get length and skip Length byte 
4 ar 3 Move the data 
BB 7 at 10$:  PUSHR #*M<R3,R5> ; Save registers 
67 56 00 64 C 7 71 MOVCS 3, (R45 #0,R6,(R7) ; Move data to user's buffer, zero fill 
BA 027 £18 POPR #*M<R3,R5> : Restore registers 
rf 7A =O7)1 TSTL ; Did caller want return Length? 
1 1 7C 3 3=720 BEQL 30$ ; Br if not 
7E 721 IFNOWRT #4,(R8),70$ ; Br if longword not writeable 
56 53 861 ss § CMPW 8 R6 ; See how much was moved 
07 15 yre BLEQ 208 : Use valid data length if it fits 
23 6 88 9 724 MOVW R6,R3 ; Else give him ‘‘too short"’ buffer size 
00 if oC C 725 BBSS  #31,R3,20$ : And return buffer overflow indicator 
8 53 »00 3 7 § gps: MOVL R3, (RBS ; Return length to user 
0 Qi 9A 0293 727 30$:  MOVZBL $*#SS$_NORMAL,RO : Set success code 
A be 38 7 3 40$: TSTL R10 3; Any pool deallocation needed? 
QOD 1 9 7 BEQL 50$ ; Br if no 
of 8B 9A =—730 PUSHR #*M<RO,R1,R2,R3> ; Save registers 
50 A 00 9c Os 731 OVL R10,R0 ; Get buffer address 
Q0000000'EF 16 O29F 7 ; JSB EXE $DE ANONPAGE : Deallocate the pool 
OF BA As 7 POPR #*M<RO,R1,R2,R5> 3; Save registers 
05 8 . 4 : 50$: RSB ; Return to caller 
50 oc 3 AB 7 $ 70$: MOVZWL #SS$_ACCVIO,RO ; Return error code 
—eE9 11 se 4 4 BRB 40$ ; Return to caller 
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DE 


AD 40 
AD 4] 
AD og 
AD 7% 
AD 744 
AD 745 
AD os 
AD 74 
AD oe 
Q2AD 74 
Q2AD 750 
8 AD 751 
AD 7? § 
Q2AD 7 
Q2AD 754 
O2AD Te? 
8 AD 7? § 
AD 75 
O2AD 758 
Q2AD 759 
O2AD 760 
Q2AD 761 
O2AD 76 
O2AD 76 
Q2AD 764 
Q2AD 765 
O2AD 76 
O2AD 76 
Q2AD 768 
O2AD 769 
Q2AD 770 
pgAd 771 
O2AD 77 
8 AD 77 
AD 774 
Q2AD 775 
Q2AD 77 
Q2AD 77 
Q2AD 77 
Q2AD 77 
O2AD 780 
Q2AD 781 
O2AD 8 
AD 7? 
AD 784 
AD 785 
AD ree 
AD 7? 
AD 788 
AD 789 
AD 790 
AD 791 
AD 79 
AD 679 
AD 794 
+! 795 
B 796 
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FUNCTIONAL DESCRIPTION: 


These routines handle data items which must be transformed 
before they are returned to the user. Generally, some 
transformation is applied to the data item and the newly 
computed item is stored in LOCAL_SPACE on the stack. 

The handling routine then changes R4 to point to LOCAL_SPACE 
so that MOVEIT will move the item from local storage. 


CALLING SEQUENCE: 


JSB/BSB 
INPUTS: 
R1 item identifier 
R3 item lengt 
RG item address 
R6 user buffer Length 
RS LKB address 


zero 
IMPLICIT INPUTS: 

IPL = IPL$_SYNCH 
OUTPUTS: 

R10 system buffer address to deallocate or zero if none 
IMPLICIT OUTPUTS: 

none 
ROUTINE VALUE: 


SS$_NORMAL Normal successful completion. 
SS$_INSFMEM Insufficient non-paged dynamic memory 


SIDE EFFECTS: 
none 


Se Se Se Ge Be Ge Ge Be Ge Ge Se Ge Se Be Ge Ge Ge Ge Ge Se Ge Se Ge Ge Se Se Be Se Ge Se Se Se Ge Ge Sse Ge Ge Se Se Ge Ge Se Ge Se 
@ 
—_— 
Oo 


CHECK_SPC: 


; Registers R7 and R8 are saved at this level and may be used by 
; the action routines without being saved. Action routines are JSB‘ed 
3; to with R7 containing the address of LOCAL_SPACE on the stack. 


ova R7,-(SP) ; Save registers : 
MOVL #SPECIAL LEN.R? ; Get number of table entries 


MOVAL SPECIAL, ; Get address of table 


1 
( 


* 


SYSGETLKI = GET LOCK MANAGER INFORMATION véren SE 1 mii -1 AX/VMS Macro v04-00 Page 
riba tt SPECIAL = Handle special win A na. 71982 86: 48: 4} SYS.SRCISYSGETLKI1.MAR;1 . 
B 97 
8 51 8B BE 98 10S: CMPW R1,(RB)+ 3; Does entry match item? 
so BB 79 BEQL «=. 208 : Yes, go handle it 
58 4 C B 00 ADDL 3°88 ; Skip handler address 
‘5 57 «OF C 01 SOBGTR R7,10$ ; Scan rest of table 
09 1} c 0¢ 308 : Nothing to do, exit 
57 FBAD DE C 04 208: MOVAL LOCAL apace (FP? R7 ; Load local address for action routine 
50 01 9A C9 05 MOVZBL S*#SSS_NORMAL, rb ; Assume success 
98 16 0 cf 86 JSB a(r8)+” ; Call action routine 
57 =6BE 43 Dj B09 308: poe (SP)+,R7 ; Restore registers 
02D 11 ; Data handling routines 
gs Big 
02D 814; 
SH 815 ; The PID must be returned as an EPID. 
8 . B18 : The EPID field of the LKB is valid only on a master copy lock block. 
090 818 : Inputs: R4 => LKBSL_EPID in LKB 
02D 819 ; R7 => Output +f buffer if needed for return 
090 ss 3 R9 = Address of LKB 
D2 B22 - 
i 8 i SPC_PID: 
06 €0 02D 824 BBS #LKBSV_MSTCPY,- ; Br if master copy, R4 is pointing to 
10 3A A9 0204 825 LKBSW_ STATUS (RS) , 90$ : a valid EPID 
50 C Ad DO 0207 826 MOVL LKBSL~ (R9), RO’ ; Else, get the IPID 
nee mel 16 0208 827 JSB EXES at s OTO ePID ; Convert to EPID 
67 0 D0 92E1 828 MOVL RO, (R7) ; Store the EPID 
54 57 D0 O2E4 $ 9 MOVL R7, ; Change the item address 
50. «(01 3 + : ? 90S: a S“#SS$_NORMAL ,RO ; Return success 
ss He 
OSes 834 : The lock state is a composite of several fields 
ans 
02EB B37 SPC_STATE: 
02EB ; 8 ASSUME LKBSB_GRMODE EQ LKBS$B_RQMODE+1 
02EB 39 ASSUME LKBSB_ STATE EQ LKBSB_ GRMODE +1 
67 «BA sf 8 EB 0 MOVZWL (Reds (R7) : Copy modes 
02 A? 64 EE 1 MOVB = (R4) thd) : ..and state 
18 O2F ¢ BGEQ : Br if state is okay 
02 A7_ FF 4 90 8 FAs BG MOVB SUK ESC MAST ING. 2CRT) : Else, ap waiting states to same code 
54 7 $ 4 ate 30$: ty R7,R4 ; Change the item address 
a HE 
4 rt : The lock's parent lock ID must be extracted from another LKB 
FD «6850 
FD 851 SPC_PARENT: 
67 D4 FD 26 CLRL (R7) ; Assume no PARENT LKB 
546 64 D0 FF 5 MOVL (R4) RS ; Get address of PARENT LKB 


” 
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06 = 4 BEQL 10$ ; Br if none 
67 30 a6 OD é 22 MOVL LKBSL_LKID(R4), (R7) ; Get LOCKID of owner process 
54 57 4 8 28 108: ty R7,R4 ; Change the item address 
C 5 
& B86 
C 60 ; The CSID of master 
C 61; 
C 6 
0c 65 SPC_SYSTEM: 
64 DS 0c 64 TSTL (R4) ; Is CSID zero? 
”. 1 0 65 BNEQ 30$ ; Br if not, CSID is okay 
50 QO000000'EF oD 1 6 MOVL *  eaeeceaeted ; Get address of cluster block 
06 = 1 6 BEQL 0 ; Br if no cluster 
54 60 A0 9E 19 68 MOVAB CLUBSL_LOCAL_CSID(RO),R4 ; Set new item address 
50 01 9A 1D $2 gos: MOVZBL S“#SSS$"NORMAL ,RO ; Return success 
05 0320 870 30$: RSB 
8 1 14 
321 a : 
b3 1 8735 ; The lock's resource name space is a composite 
0321 874; 
0321 875 
0321 876 SPC_NAMSPACE: 
0321 14 ASSUME —— RMOD EQ RSBSW_GROUP+2 
18 OO EF 0321 78 EXTZV #0,#8716,- ; Get the group field and access mode 
67 64 0324 879 4), R75 eS. bytes. 
64 BS 0326 580 TSTw : Is this group 0? (ie SYSTEM resource) 
04 1s 0328 81 BNEQ 10$ ; Br if not, not a system resource 
00 67 1F E 032A +o) BBSS ATTY SYSA., CF. 188 ; Set the SYSTEM wide indicator 
54 57 DO O32E 883 10S: MOVL R7,R4 ; Change the item address 
05 0331 884 RSB 
03 885 
03 tis ; 
8 +H ; The lock's lock count is the sum of all locks granted on the resource. 
03 889 
O33¢ 90 SPC_LCKCOUNT: 
67 Dds 0 91 CLRL (R7) : No locks granted yet! 
58 54 00 83 & 6 MOVL R4,RB ; Copy Listhead address 
58 64—Ci«*O'T 0 7 89 10$: CMPL (R4),RB : Back at listhead again? 
or iis A 94 BEQL 20$ : Br es 
67 D6 033C 344 INCL (R7) ; Else, tally one more lock 
54 64 D0 O33E 96 MOVL (R4) RS : move down List 
F411 8 41 97 BRB Li ; Look for more 
54 57 00 43 98 208: MOVL R7,R4 ; Change item address 
05 0 #6 99 RSB 
4 0 
47 901; 
47 9 § 3; The remote lock id 
47 903; 
47 9 
47 905 SPC_REMLKID: 
51 DD 7 208 PUSHL Ri : Save R1 
51 38 Ag =oOD 49 90 MOVL LKBSL_RSB(R9) .R1 ; Get RSB address __ 
67 Al oD 4D 9 3 MOVL ® BSL~CSID(R1), (R7) ; Is the REMLKID valid? : 
a 2} 9 BEQL :; Br if not, information is still local 
67 64 00 3 6910 MOVL (R4), (R7) : Else, return real REMLKID 


. 
SPE 
54 2. 
af 2ebD 
0 
0 
ose? 80 
2A 50 =«EY 
58 4 00 
54 2 4 
046 =é«C€C 
12 2A A9 
5 $0 AQ = 00 
5 8 AS 00 
ob 1 
QO000000'GF 16 
03 11 
0288 30 
53 18 24 
3s 2 
535 6A B0 
06 BA 
05 


ot 
2A 5 
38 23 

4 2 

04 

12 2A Ad 

53 50 Ad 

53 8 AS 
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MOVL R7,R4 
POPL R1 
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18:11 
48:1 
; Return item address 


; Restore R 
; Return to caller 


; The List of all locks being blocked by this Lock. 


SPC_BLOCKEDBY: 
PUSHR 


S #°M<R1,R2> 
BSBW = LKI_ALLOCATE 
BLBC =—_- RO, 508 
Move = RGR 
MOVL R2,R4 
BBS #LKBSV_MSTCPY,- 
LKBSW_STATUS(R9) ,108 
MOVL  LKBSLIRSB(R9) ,R3 
MOVL  RSBSLICSID(R3S,R3 
BEQL =: 108 
: Lock information is on MASTER 
JSB G*LKISSND_BLKBY 
BRB 30$ 


ve registers 

Locate a system buffer 

if resource failure 

py RSB wait — Listhead address 
address of system buffer data 
this is the master copy, 

information is local to this system 

; Get RSB address 

; Is this a process copy? 

; Br if not, information is still local 


Sete Ge Ge Se Se Se Se eS 
@ 
ae | 
vo 
ia 
~ 


system 
; Send request for all locks BLOCKEDBY 
this lock 


; Return with status 


: Lock information is LOCAL to this system 


; Find all locks BLOCKEDBY this Lock 
; Return size of item 

; Move to —— wor 

; Get size of returned buffer 

; Restore registers 


Save registers 

Allocate a system buffer 

Br if resource failure 

Copy RSB wait queue Listhead address 

copy address of system buffer data 

Br if this is the master copy. 
information is local to this system 

Get RSB address 

Is this a process copy? 

Br if not, information is still local 


system 


10$:  BSBW LKISSEARCH BLOCKEDBY 

30$: MOVW #LKISC_LENGTH,R3 
ASHL #16,R3, 
MOVW (R10) _R3 

50$: POPR #*M<R{,R2> 
RSB 

; The List of all locks blocking this Lock. 

SPC_BLOCKING: 
PUSHR #*M<R1,R2> ; 
BSBW = LKI_ ALLOCATE : 
BLBC ~—_ RO, 508 : 
MOVL Bs 4 5 
MOVL 2,R 3 
BBS #LKBSV_MSTCPY,- : 

LKBSW_STATUS(R9),10$ —s: 

MOVL  LKBSL7RSB(R9) ,R3 : 
MOVL RSBSL~CSID(R3S .R3 ; 
BEQL 10% : 
; Lock information is on MASTER 
JsB G*LKISSND_BLKING 


; Send request for all locks BLOCKING 
; _this lock 
; Return with status 


SYS( 
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; Lock information is LOCAL to this system 


018 3 198 6sBw et haat ee ; Find all locks — this lock | 
1 8 $ MOVW Ai 8: aS NGTH, i Return size of ite 
53 1 ASH 3; Move to nigh we we 
A 8B MOVW ; Get size of returned buffer 
6 BA 50S: POPR tte *R2> ; Restore registers 


: The List of all locks associated with the resource. 


SPC_LOCKS: 


DOOOOOOOOOOOOOOOOOOOOOO 
‘CO G9 CD C9 CD CS 00 09 C0 08 SI INI SINISE IOO 


OO NAOUE WN ("OO ONOU LS UO 


7 
A 
BD 
C1 
rz | 
tf 
tf 
C7 
‘ 
06 ee : C7 PUSHR #*M<R1,R2> ; Save registers, R3 & R4 are outputs 
g2tp 0 03¢9 BSBW LKI_ALLOCATE ; Allocate a system buffer 
5250 €9 cc BLBC RO,80$ ; Br if failure 
58 54 00 CF MOVL R4,R 3; Copy Listhead address 
54 52 00 D MOVL R2,R4 ; Set address of return a ate 
06 €0 03D BBS #LKBSV :; Br if this is the master cop | 
12 2A Ad 03D LKBSW_ “STATUS AD) 108 3: information fs lecal to thie’ system 
53 0 A9 DO O3DA MOVL LKBSL_R 9) ; Get RSB address 
5338 AB o9 O30 990 MOVL  RSBSL~ “CFD ERSS R3 : Is this a process cop 
L ; Br not, informat on s still loca 
08 1 bees a4 BEQ 10$ Br if inf j “ ill Lb l 
Beet eer ; Lock information is on MASTER system 
00000000 ' GF 16 tH 444 JSB G*LKISSND_LOCKS 3 Sond regyest ser all locks associated | 
; OW s loc 
2B Oi th 244 BRB 70$ ; Return with status 
; Loc nformation is L to this system 
beet m4 Lock inf i is LOCAL hi 
51 56 DO O3EC 1001 108: MOVL t size of buffer 
O3EF 1008 ASSUME ReeSL _CVTQFL EQ RSBSL_GR rarisd 
O3SEF 100 ASSUME Rees WTQFL EQ RSBSL -CVTQFL+ +8 
53 03 9A O3EF Hh 444 MOVZBL ; Initialize number of queues to search 
57 28 DO 0 re 1 B2 aos: MOVL R8,R7 : Copy Listhead address, again 
58 4667) «ODT sCéO3F 10 6 50$:  CMPL CRP) RB ; Bac at Uisthead again? 
14 13 O3F8 1007 BEQL 608 ; Br if y 
51 18 F FA 1308 SUBL #LKISC_LENGTH,R1 : Any roon s left in buffer? 
25 1 FD 1009 BLSS 90$ : Br ifn 
57 67 DO OQO3FF 1010 MOVL (R7) ,R7 : Else, anal down List 
57° CB AZ 9 402 1011 MOVAB =LKB$L_SQFL(R7),R7 ; Point to start of LKB 
es 1 4 1 \§ BSBB LOCK ; Get the lock Sd, Fae 
57 38 a ¥ ret ! + aosne Kost. SQFL(R7),R7 : Point beck to state queue 
or more 
40E 1015 60$: ASSUME RSBSL _CVTQFL EQ RSBSL_G rart os” 
40E 1 1 ASSUME gs “WTQFL EQ RSBSL evTOrLss 
58 98 c ret] 101 ADOL #8,R ; Skip to next queue 
DE F 411 1 18 SOBGTR 30$ ; Loop if more queues to search 
01 9A 0414 101 MOVZBL $*4#5S$_ R : Return success 
+ 8 417 1 9 70$ MOVW BLE ISCLENGTHAR ; Return size of item 
53 1 41A 1 ASHL #16,R ; Move to high word 
6A B ait 1 é MOVe (R16) : Get size of returned buffer 
6 BA 43 1023 80$ POPR #*m<R1,R2> : Restore registers 
5 0423 1024 RSB ; Return to caller 
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90$: MOVZWL Ez SU PEROT oe 
BRB 80$ 


3+ 
; Return Lock Information 


LKI$_LOCKID - the 
LKI$_PID - the 
LKIS-SYSTEM - the 
LKIS_STATE - the 
LKIS_REMLKID - the 
LKIS_REMSYSTEM = the 


Inputs: 
Re = og auirer address 
R? = LKB ad 
R10 = Kh. “of beginning of 


Outputs: 
None 


Side Effects: 
is destroyed 


Ss Be Se Se Se Se Ge Se Se Oe Ge Se Se Se Se Se Se Se Se Se Se Se 
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Return partial success 
Exit 


This routine will return the following lock information: 


lock's Lock id 
PID 


lock's 


penoures™ s system id 
locks current state 


remote lock id (Process copy LOCK 
remote system id (Process copy CS 


ID) 
ID) 


system buffer 


(R10) is increased by lock return size 


OCK_ INFO: 
ADDW #LKISC_LENGTH, (R10) ; Tally return size 
MOVL  LKBSL_CKID(R75,(R2)+ : Return the (OCKID (MASTER LOCKID) 
; The EPID in the LKB is valid only for a master lock block. 
MOVL LKBSL erro rer . «RO ; Get the EPID 
BBS t Sy ; Br if master copy lock 
Bow “STATUS CA?), 10$ : ..-EPID is valid 
MOVL CRBS PID(R7),R ; Get the IPID 
JSB L“EXESIPID_TO_ EPID ; Convert to EPID 
10$: MOVL RO (R2)¢ ; Return the EPID 
MOVL §LKBSL_RSB(R7),R : Get RSB address 
MOVL RSBSL_ “Coe ocROS. Oa2)s ; Return pee SYSTEM ID (MASTER CSID) 
BNEQ $ ; Br if okay 
MOVL *CLUSGL_CLUB,RO ; Else get address of cluster block 
BEQL 0$ Hy i cluster 
MOVL CLUBSL_LOCAL_CSID(RO), -4ir »: ohare real CSID 
30$: ASSUME LKB$B_GRMODE~EQ LKBSB QMODE +1 
MOVW LKBS$B_RQMODE (R7) : fopy modes 
MOVZBW CKBSB~ STATE(R7), tRose : copy. current ,otate. zero byte 
BGEQ : f state is okay 
608 MOVB #LKISC_WAITING,-2(R2) : as. map waiting states to same code 
; The remote CSID and REMLKID are only valid in a master copy 
: lock block. 
MOVL LKBSL_REML LEED iat R7),(R2)*+ ; Copy the REMLKID (PROCESS COPY LKID) 
MOVL  LKBSL~CSID(R7), ( Rb) : Get the remote CSID (PROCESS_CPY CSID) 


SYS 
04 


H_ 3 
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#LKBSV_MSTCPY,- 3 
LKBSW_STATUS(R7),90$ —: 
LKBSL“LKID(R7),-8(R2)—: 


Le CLUSGL_ CLUB. RO 

0$ ; Br if none, return zero CSID 
CLUBSL " eetiataatais. Else, get real 

RO, -4(R2) ; Return real CSID 


Br if master copy 

-»-CSID, REMLKID are valid 

Else, return the LOCKID as REMLKID 
; Get the CLUB 


04 
16 2A A? 
F8 Ae 0 A? 
50 00000000'EF 


4 
50 60 AO 
FC A250 


Sl tel ee ee 
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493 109 -SBTTL GETLKB = Get specified Lock Block 
238 1094 3” 
493 1099 ; FUNCTIONAL DESCRIPTION: | 
493 1 39 : Routine to convert a LKID and check privileges. If a valid LKID is 
493 1 3 ; specified, the standard conversion routine VERIFYLOCKID is siaply 
493 1099 : alled. {f, however, a LKID that implies a ‘wildcard’ LKID (-1 or 0) 
493 1100 ; s specified, then the next active lock is chosen as the LKID to pass 
493 1101 ; to VERIFYLOCKID which then checks the requestor's privilege to obtain 
rh 1 § : information about the lock and returns the lock's LKB address. 
49 1 s > CALLING SEQUENCE: 
49 1106 : JSB/BSB 
SpE rus 
0493 1110: R4 current process PCB address 
93 1443 3 LKIDCAP) address of specified LKID 
049 1118 > IMPLICIT INPUTS: 
9 1115 ; IPL <= IPL$_ASTDEL 
1y : 
49 Ni? : OUTPUTS: 
049 1149 : RO success/failure of operation 
0493 1120; R4 current process PCB address 
B33 1 1 3 RS specified lock's LKB address 
049 1 5 : COMPLETION CODES: 
0493 1125; SS$_NORMAL Normal successful completion 
495 1126 ; SS$_ACCVIO Access violation on attempt to access lock id 
4 1% a SS$_NOMORELOCK No more locks available (on ‘wildcard’ operations) 
49 1 ; : SIDE EFFECTS: 
493 1131: RS and R6 are destroyed. 
198 1138 
93 1134 GETLKB: 
55 D4& 0493 1135 CLRL R5 ; Assume not ‘wildcard’’ LKID 
56 608 ac 0 95 11 § MOVL KIDCAP) ,R6 ; Get LKID address 
4 1 499 11 BEQL : Br if none 
79 11 3 IFNOWRT #4,(R6),50$ 3; Check access to LKID 
51 $6 DO O04A1 11 MOVL (R6),R1 : Get LKID 
14 re 1329 BGTR ; Br if standard LKID 
4A 1148 : ‘Wildcard’ type LKID specified 
55 51 32 0406 1144 CvTwL =oR1, RS : Get LKIX (Lock Index) from LKID 
¢ 14 Q4A9 1145 BGTR 10$ : If gtr, valid LKIX | 
D4 O04AB 1308 LRL R ; Else, start with index = 1 
5 6 6B 4AD 1147 108: INCW R ; Increment LKIX 
00000000 ‘EF 8 4AF 1148 CMPW R5,LCKSGL_MAXID :; Is LKIX in valid range? 
j 
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KB = Get specified Lock Block =-SEP-1984 5 SYS.SRCISYSGETLKI.MAR;1 (8) 
1 BGTRU 60$ ; Br if not = no more locks 
50 00000000" FF es D MOVL PLEKSGL IDTBLERS).AO ; Get LKB address 
1 BGEQ 10$ ; Br if unused slot 
51 30 A ) MOVL LKBSL_LKID(RO),R1 ; Get LKID from LKB 
66 51 OD MOVL R1, (RB) ; Store LKID in argument List 


; Get LKB and check privileges 


20s: &sBw VERIFYLOCKID et LKB address and check privileges 
Ww 


wildcard’ type LKID specified? 


OO WIM OWMO oowor —-co 


3 3 
8 3 
1 BEQL 40$ ; Br if not 
E BLBC RO,10$ ; Br if error, return only ‘‘good’’ ones 
02 A6 A MNEGW #1,2(R6) 3; Else, set continuation context 
0 40$: RSB ; Return to caller 
50 oc ; 508: ROvZUL g $S_ACCVIO.RO ; Set access violation 
50 OA08 BF 3 608: MOVZWL #SS$_NOMORELOCK,RO : Set no more processes 
F3.O1 BRB 40$ 3 
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«SBTTL VERIFYLOCKID = Verify lock id 


SYSGETLKI = GET sa 
vos 600 VERIFY ore veeIen rege Ge 


Ma 
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Paral 


I 


p++ 
; FUNCTIONAL DESCRIPTION: 


This routine verifies a lock id for correct process ownership 
and access mode and then converts it into a LKB address. 


LKB is not locked after leaving this routine, therefore we 
must re-verify the LKB everytime we attempt to use it. 


CALLING SEQUENCE: 
JSB/BSB 


Note: IPL is raised to IPL$_SYNCH to prevent the owner of 
the lock from releasing the CKB/RSB in the middle of verifying 


OOOO COCCOCOCOCOOCOCOOOOOOOOOOCOO 


BRR RRR RRR RRR RRR RRR PRR RRR RRR EERE OM 


its lock id. 
INPUTS: 
R1 Lock id 
RG Address of PCB 
Zero if not a wildcard search operation 
8 OUTPUTS: 
0 RO Completion code 
p RG Address of LKB 
COMPLETION CODES: 
6 SS$_NORMAL Lock id was valid and converted to LKB address 
SS$_IVLOCKID Invalid lock id 
SS$_IVMODE Access mode violation on attempt to access lock 


SS$"NOSYSLCK No SYSLCK privilege to access system lock 
S$S$_NOWORLD No WORLD privilege to access lock 


SIDE EFFECTS: 
RO and R1 are destroyed 


De Se Se Se Se Se Ge Se Se Se Se Be Se Oe Se Se Ge Be Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se te Se 
@D 
w 


| 

ASSUME LKBSV_MODE £0 | 
ASSUME LKBSS"MODE £0 | 
| 

| 

| 


VERIFYLOCKID: 
DSBINT 


DOOO BM FM MMMM MM MM MMM MMMMMMMMMmmMmmMmMmmMmmMmmMmmMmnmMmMmmnmmMmmMmMmmimMmmMmMmmmmmmmrmhmhchcr Oo 
POROMOLSO PLE LLL LLL LEEPER EL PEEP EP PEPE EPP EPP PEP PEPE PPP PPP PE OO 
ROMONONONONIND 2 2 |] = DODD 0O00000000000000000000000000000090909 SI NIN NINN NNNS 


BIAS @§ OOD NO NE WIN OOD NIA UNE WIN $$ O OD NAN EWN 0 OO NAME WN 0 OONOU EW 


WAnnR RRR RRR RRR R RRR RRR RES 


Bl #IPL$_SYNCH ; Raise IPL to sync access to LKBs 

3¢ VZWL R1,R9 ; Put lockid index in 
D1 CMPL RO, LCKSGL_MAXID ; Is the lock id too big? 
1A BGTRU 4 ; Yes 
0° MOVL @LCKSGL_IDTBLCR9],R9 ; Get LKB address 
1 BGEQ 4 ; Unallocated id 
f CMPL R1 ,LKBSL_LKID(R9) ; Check pyquence number 

BNEG § = 408 ; Not vali 
D MOVL LKBSL_RSB(RY) ,RO ; Get RSB address 
és TSTW  RSBSW~GROUP(RO) ; Is this a system resource? 


to sy$ter SE 19° 


SYSGETLKI - GET LOCK MANAGER 
902°500 VERIFYLOCKID = Verify Loc 
7 3 D 1227 Q 
51 00000000" GF 06 OF 1 8 Abvt 
OBE C1 8B 6 1 CMPW 
MC te aa Bate 1589 EOL 
% F 1 ; IFNPRIV 
rf; 1 1 RB 
50 oe 6 1234 10$:  MOVPSL 
1 EF 1335 XTZV 
ae see 
D1 ASSUM 
50 01 91 D 33 Chee . 
06 1€ 0530 1 ty GEQu 
532 1 43 1FNPRIV 
50 oC 0538 1243 20$:  -MOVPSL 
16 EF 053A 1244 EXTZV 
50 50 02 53¢ 1245 
51° SOAS DO O53F 1 46 MOVL 
4E al 50s«*89 543 124 CMPB 
OF 1A 0547 1 48 BGTRU 
50 01 9A 0549 124 MOVZBL 
34 1250 30$:  ENBINT 
05 O54 51 SB 
50.2124 ef 3¢ He 38 40S: mOVZUL 
50 0354 er $¢ 337 35 50S: ROVZUL 
50 28F4 iF $C 3 3 608: MOVZUL 
50 2884 8F 3C 0565 1259 70$: MOVZWL 
11 056A 1260 BRB 
056C 1261 


Bz DWVEwDVa— 


SL$V_PRVMOD,- 
oh $S“PRVMOD,RO,RO 
C_RERNEL £0 6 
tse EXEC EQ 1 
peat C_EXEC,RO 
208 
aaa 
sPsLSv_P RVMOD,- 
#PSL$S~PRVMOD,RO,RO 
LEBSL RSB(R9), 
0,RSB$B _RMOD(R1) 


S*#SS$_NORMAL .RO 


#SS$_IVLOCKID,RO 
#SS$_IVMODE RO 
#SS$_NOSYSLCK,RO 
#SS$_NOWORLD,RO 
30$ 


Bete Se Se Se Ge Ge Ge Se 


Pete Ge Se Se Ge Be 


; Br if NO priv’ 


711 Ct Pets 
1 SRCIS 


Else, success 


; Get current PSL 
; Extract oe mode field 


Macro V04-00 
JSY SGETL KI.MAR;1 


f yes 
se, + our PCB address 
we ove group access to LKB? 
ole needed 
; Br if our rove - always allowed 
ege to access lock 
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| 
(9) | 
| 
| 


Does the user have “5 access 


a to access the LK 


Br i 


Get RSB address 


; Br if ko" privilege to look at lock 
; Get current PSL 
; Extract previous mode field 


Caller have privilege to access lock? 


Br if No 


Else, Yes - return success 


Restore IPL 


; Invalid lock id 
eave 
; Illegal access mode 


eave 
No WORLD privilege to access lock 


Leave 


Leave 
; No SYSLCK privilege to access lock 
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~SBTTL LKISSEARCH_ BLOCKING = Search for locks blocking the current lock 
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FUNCTIONAL DESCRIPTION: 


This routine searches for locks blocking the current lock. A 
blocking lock is one in which the maximized request mode is 
incoupe ible with the requested mode (if the lock is on the 
waiting or conversion queue) or the granted mode (if the lock 
is on the granted queue). 


For example, assume there is PR locks granted on a resource and 

a second user issues an EX mode request on the resource. The first 
lock is now PoEK nas the second lock and the first lock would be 
returned in List of locks BLOCKING the second lock. 


To find BLOCKING Locks it is sufficient to check all locks 
ahead of this lock on all queues (in th order, REQESTED, 
CONVERSION and then GRANTED) to see if their poqneses or granted 
modes are incompatible with this locks requested mode. 

CALLING SEQUENCE: 
JSB/BSB 


INPUTS: 


POOPAOPOPASASASASAASOSSOSASS DO 


90 R2 address of system buffer for storing the lock information 
91 Re length of system buffer for storing the lock information 
35 R address of wait queue in RSB 
+ R9 LKB address 
5 ; IMPLICIT INPUTS: 
IPL = IPL$_SYNCH 
OUTPUTS: 
RO always success! 


SIDE EFFECTS: 
R7 is destroyed. 


KISSEARCH_ BLOCKING: : 
PUSHR #*M<R1,R2,R5,R6> ; Save registers 


First 4 through all locks waiting pheod of this lock 
maximizing the requested modes and checking all locks 
incompatible with the current ‘‘maxmode’’. I[f this lock is 
on the wait queue then we do the wait queye first and 

the converison queue next. If this lock is on the 
conversion queue then we do only the conversi.n queue. 

; Later we'll do all the granted locks. 


; If this lock is on the granted queue, we skip right to the 


0066 8F 6B 
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“SEP=1 v04- 
; search of the granted queue locks. 


ASSUME LKBSK_GRANTED £0 


SYS. SRC]S 3¥SG GETLKI.MAR;1 


ASSUME LKBSK-CONVERT €0Q 
ASSUME LKBSK-WAITING EQ 
ASSUME RSBSL_CVTQFL €E0 RSBSL coor tes 
ASSUME RSBSL_WTQFL EQ RSBSL_CVTOFL+ 
MOVZBL LKBSB_RQMODE(R9) ,RS ; . t the current lock's requested mode 
MOVL ES eRe : will point to other (ka's 
: i front of the one ae iaeed” to by R9 
TSTB Rpes STATE tne) ; ede 1 queue is lock on? 
BGTR 8 ; f granted queue 
BLSS $ ; Br if waiting queue 
: Lock is on the conversion queue 
SuBL #8,R8 ; Point to conversion queue header 
MOVL LEDS, SRL (A?) A? ; Get hed head lock on state queue 
. pees ed head of queue yet? 


: es 
; Bock J. to point at start of LKB 
; RO = requested mode 

; Save ol sannede 


: Maximize lock modes (in RO and R5) and see if this lock (R7) is 
; incompatible with (the previous) maxmode. The maximization function 
; is a simple arithmetic one B Sacens 3° if the two modes are CW and PR. 


50 
S WLKBSL_SQFL,R 
MOVZBL LKBSB_ Ranobetn7), RO 


@o 
oO m 
<<Wo 
Lod ee 
Bete Se tees 


; In that case the maximum of Pw. PW is incompatible 
; with everything either CW Tt, PR is BR ME with, 


{pe RO,R5 


; Current mode greater than maxmode? 

EQL ; Br No, they're equal 
BGTRU 0$ ; Br if Yes, compute new maxmode 
CMPB RO, #LCKSK_CWMODE ; Br if No, is current mode Cw? 
BNEQ i ; Br if No, maxmode = 

CMPB #LCKSK_PRMODE ; Br if Yes, is maxmode PR? 
BNEQ g ; Br if No, maxmode = 
BRB 5$ :; Br if Yes, new maxmode is PW 
CMPB R5 ,@LCKSK_CWMODE : Is maxmode CW? 
BNEQ 30§ ; Br if No, maxmode = RO 

CMPB 8 #LCKSK_PRMODE : Br if Yes, is current mode PR? 
BNEQ 308 : Br if No, maxmode = 

pase § gkSK, PWMODE ,.R5 3; Have CW and PR; So = PW 
MOVB RO,R5 3; Maxmode = RO 

BBS RO,- ; Branch if compatible with 


L“LCKSCOMPAT_TBLCR1), 10$: saved maxmode 
: Have a lock incompatible with maxmode, return the lock info. 
SuBL #LKISC_LENGTH,R6 ; Any room left in butter? 
BLS Br if not, leave no 


BSBu LOCK. INFO Return the lock infornetion 
BRB 3 Get next lock in RSB (outer loop) 


B. 4 
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#1,R0 3; Success indicator 
#*°M<R1,R2,R5,R6> ; Restore registers 


90$: MOVZBL 
POPR 
RSB 
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SYSGETLKI - GET LOCK MANA 18:11 VAX/VMS Macro v04-00 P 
v04 [KISSEAREH_BLOCRING = Search for locks b 5=SEP-1984 86:38:20) SYS.SRCIJSYSGETLKI.MAR;1 oa a 
EE 1398 sos | 
| 8 : > Reached the qyoue header. Back up R8 to point to the previous | 
CC 1380 ; queue header in the RSB. If RB is pointing to the granted | 
CC 1381 i Queue, then we are done with this Loop and we continue with 
- 7 § ; the granted queve. Otherwise, we repeat this loop for the 
att : 7 3; conversion queue. 
58. 2 Q5CC 1385 UBL #8,R8 ; Back up R8 one queue head | 
57 CB AB 56 SCF 4 $ MOVA “LKBSL_SQFL(RB) ,R7 3 Prepare to process that queue 
10 Ci O5D3 1 ADDL #RSBSL oy - ; Get address of granted queue 
50 50 a9 303 1 88 LKBSL _RSB(R $ RO 
0 58 «01 dB 1 CMPL RB,R ; Have we reached the granted queue? 
ED 12 44 ! 4 BNEQ 40$ ; Br if Not, repeat for conversion queue 
a 1 35 : Now repeat a similar procedure for all locks on the granted 
O5DD 139 3 queue whose granted mode is incompatible with the maxmode 
OSDD 1394 3: in RS. 
OSDD 1395 : 
03 11 OSpD 1 %6 BRB 70$ 
a i 38 60$ 
p2pF 1723p ; > Lock is initially on the granted queue. 
3s 6 @ Bene tt SUBL #16,R8 ; Point to granted queue header 
57 3C a? 00 Oge5 1208 708: MOVL LKBSL_SQBL(R7) ,R7 ; Get next lock in granted queue 
58 57 Di OSE6 1404 CMPL R7,R8 ; Reached end of queue? | 
1A 613 QSE9 1405 BEQL 90$ ; Br if Yes, all Jone 
57. 38 C2 QSEB 1406 SUBL #LKBSL_SQFL,R7 ; Back up to point at start of LKB 
35 A? 9A OEE 1407 MOVZBL LKB$B_GRMODE(R7),RO : Get granted mode 
E7 O0000000'EF4S5 50 £0 pare 1308 BBS RO,L*CCKSCOMPAT_fBLCR5],70$ ; Branch if compatible | 
bere Vei9 > Have an incompatible lock on the granted queue, return lock info. 
56 18 C2 ODER 1418 SUBL - #LKISC_LENGTH.R6 : Any room left in buffer? | 
05 9 OSFE 141 BLSS ; Br if not, leave now 
FE28 0 0600 1414 BSBW LOCK INFO ; Return lock info 
DD 1 0603 1415 BRB 0$ ; Look for more | 
05 1416 
01 A 05 1417 
08 1418 
OC 1419 
OD 1420 
| 
| 
| 
| 
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| 
| 
SYS.SRCISYSGETLKI.MAR; 1 1) 
~SBTTL LKISSEARCH_BLOCKEDBY = Search for locks blockedby the current lock | 
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FUNCTIONAL DESCRIPTION: | 


This routine searches for locks blocked by the current lock. | 
A blocked lock is one which is either blocked by the current 
lock or is blocked by any other lock blocked - the current 

a 


PAAPCAAAAGSO 


OoOoooo 


Lock. We must start with the current lock on whatever queue 
it may currently be on and then maximize the requested for 
60D ‘ocks on the converting or waiting queues. ALl locks are checked 
te) to see if the maximized request mode is incompatible with the 
tits requested mode (if the locks is not on the granted queue). 
60D For example, assume there is an EX lock granted on a resource and 
0600 a two other users have issued PR requests on the resource. Now 
060D if we wish to find all locks BLOCKEDBY the first lock, then the 
60D List consists of the two locks waiting for the resource in PR 
eet mode. 
060D To find BLOCKING locks it is sufficient to check all locks 
060D behing the current lock on all queues (in the order, GRANTED 
060D CONVERTING and then WAITING) to see if their requested mode 
060D is incompatible with the current lock's requested (or granted) 
060D mode. Once, we have found one blocked lock, then that lock and all 
060D locks following are also blocked. 
060D 
060D 
060D JSB/BSB 
060D 
060D 


R2 address of system buffer for storing the lock information 
R6 length of system buffer for storing the lock information 
R8 address of wait queue in RSB 

RO LKB address 


IMPLICIT INPUTS: 
IPL = IPL$_SYNCH 


: CALLING SEQUENCE: 
+ OUTPUTS: 


> First run through all locks waiting behind this lock 
: por inizing the requested modes and checking all locks 
; incompatibdl 


oO 

o 

So 

—] 
ce ce cee ce ee ee ce ee ce ee ed od od od od Dd 
SS ST 
NNN NNN NO OAAAAAOAAOAOAUMUUMUUIUIUUIULE BER EER EB BWW NININIIononononononone 
DWNOUL WIN 20 OB NAW EWN SO OONAU EWN OOD NOAU EWN OOD NOU EWN OOO NOU EWN 


60D 
88 D RO always success! 
060D 
60D ; SIDE EFFECTS: 
60D 
p R7 is destroyed. 
0 LKISSEARCH BLOCKEDBY:: 
0066 8F 6B rs PUSHR #*M<R1,R2,R5,R6> ; Save registers 
1 
1 
1 


e with the current ‘‘maxmode’’. f we find a 


— — . ——————. 
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SYSGETLKI - GET LOCK MANAGER INFORMATION SYSTEM SE 16-SEP-1984 02:18:11 VAX/VMS Macro Vv04-00 e 1 | 
yoeeb0b [KISSEAREH_BLOCKEDBY - Search for locks met 7 §g:38:2) Leys SRCISYSGETLEI MAR: 1 ott ai | 
e1 1479 ; lock that is blocked by the current lock, then that lock 
11 1480 ; and all the following locks are blocked. For locks that 
611 1481 ; are on the prantee queue we do not maximize the granted 
ee 1? ¢ : mode, for all other queues we will maximize the request mode. 
611 1484 : If this lock is not on the granted ueue, we skip right to the 
| aii 1¢ 5 ; search of the other queue Zeke. . — 
611 1289 ASSUME LKBSK_GRANTED £0 1 
611 1og8 ASSUME LKBSK_CONVERT EQ 0 
611 1489 ASSUME LKBSK_-WAITING EQ =1 
611 1490 ASSUME RSBSL_CVTQFL EQ RSBSL ets 
pel 1421 ASSUME RSBSL_WTQFL EQ RSBSL_CVTOFL+ 
55 34 A9 9A 0611 1298 MOVZBL LEBER _REMODE CRP) .RS ; Get the current lock's requested mode 
57 59 DO 0615 1494 MOVL ROR 3: R7 will point to other LKB's 
gol8 1495 ; after the one pointed to by R9 
36 AD =6—95) «(0618 1oa8 TSTB KBSB_STATE(R9) ; Which queue is lock on? 
21 19 Q61B 149 BLSS 208 ; Br if enh 
22 «13 «0610 1498 BEQL 0$ ; Br if converting 
O61F 1499 3 
pert 1309 ; Lock is on the granted queue 
; 
55 35 a9 9A pelt 1206 MOVZBL LKBS$B_GRMODE(R9) ,RS ; Get the current lock's granted mode | 
57 38 A7 dO 06 ; 1504 108: MOVL LKBSL_SQFL(R7) ,R7 ; Get next lock on state queue 
3 fF 1 1505 CMPL R7,R8 ; Reached head of queue yet? 
5B 13 QO62A 1506 BEQL 90 ; Br if yes 
we! Fe’. be C 1507 in, #LKBSL_SQFL,R7 ; Back up to point at start of LKB 
50 35 A7 9A O62F 1508 MOVZBL LKBS$B_GRMODE(R7),RO ; Get the lock’s granted mode | 
OOOOO000'EF4S 50 £0 0633 1509 BBS RO,- ; Branch if compatible 
E7 stra 1319 L“LCKSCOMPAT_TBLCR5J,10$; 
be3t 121¢ : Have an incompatible, return the lock info. for all succeeding locks 
62 11 063C 1514 BRB 1208 ; Return lock info. 
Bese 1515 | 
63E 1516 208: _; | 
Rose 131% ; Lock is initially on the waiting queue. 
58 08 C0 bese 1519 ADDL #8,R8 ; Advance 88 one queue header 
0641 1520 30S: 3 ‘ 
0641 1521 ; Lock is initially on the converting queue, OR we have 
41 15 § 3; reached the queue header. Advance R8 to point to the next 
rb 1 i 3 queue header in the RSB. | 
58 08 co } 1 5 ADDL #8,R8 ; Advance R8 one queue header 
4 15 3 > Run thru all locks on either the converting or waiting queue 
rr 13 3 ; lock for any locks blocked by the maxmode in R5. 
57 38 A7 DO 0644 1530 408: MOVL LKBSL _SQFL(R7) ,R7 ; Get next lock in queue 
58 7 ~«©01 8 1531 CMPL R7,R ; Reached end of queue? 
A 3 Re § BEQL 90 :; Br if Yes, all done 
57 7 64D 1 SUBL #LKBSL_SQFL,R7 ; Back up to point at start of LKB 
50 34 A A 0650 1534 MOVZBL LKB$B_RQMODE(R7) .RO : 
51 55 00 54 1535 MOVL R5,R1 ; Save old maxmode 


| 
| 
; Get requested mode 
| 
| 
| 
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50 50D LK] OCKEDBY = Search for locks elit 8g: 28:2) SYS.SRCISYSGETLKI.MAR;1 ° 4) | 
| 
. | 
: 3; Maximize lock modes (in RO and R5) and see if this lock (R7) is | 
8 : incompatible with (the previous) maxmode. The maximization function 
: is a simple arithmetic maximum encope f the two modes are CW and PR. 
40 ; In that case the maximum of CW and PR is Pw. PW is incompatible 
‘] ; with everything either Cw or PR is incompatible with. 
55 50 91 rk tmpB RO,R5 ; Current mode greater than maxmode? 
20 13 44 BEQL of : Br if No, they're equal 
3 1A 45 BGTRU $ ; Br if Yes, compute new maxmode 
02 5 91 6 CMPB RO, #LCKSK_CWMODE ; Br if No, is current mode CW? 
12 \¢ 4 BNEQ ; Br if No, maxmode = R2 
0s $ S ‘8 CMPB R5 ,#@LCKSK_PRMODE ; Br if Yes, is maxmode PR? 
Me 1g 4 BNEQ = 80$ ; Br if No, maxmode = R2 
oA 1 50 BRB 60$ ; Br if Yes, new maxmode is PW | 
02 pe 51 50S: CMPB R5 ,#LCKSK_CWMODE :; Is maxmode CW? 
OA 12 3g BNEQ 708 : Br if No, maxmode = RO 
03 50 91 5 CMPB RO, #LCKSK_PRMODE :; Br if Yes, is current mode PR? 
05 \2 54 BNEQ 70$ : Br if No, maxmode = RO 
55 8 + 22 60$: axe SLEEK _PUNODE RS 3; Have CW and PR; maxmode = PW 
55 50 90 37 70$: MOVB RO,RS ; Maxmode = RO | 
QOOO0000"EFS41 50 €1 59 80$: BBC RO,- ; Branch if incompatible | 
1B 60 L“LCKSCOMPAT_TBLCR1J,120$; with saved maxmode 
BD (11 61 BRB «GOS ; Else, check next lock in RSB 
58 08 CO 8 90$: #8,R8 3; Advance RB one queue header | 
57 CB AB FE 64 MOVA ~LKBSL_SQFL(R8) ,R7 ; Prepare to process that queue 
28 «SCC 65 ADDL #RSBSL_WTQFL+8,- ; Get address past waiting queue 
50 50 a9 96 LKBSL_RSB(RY) ,RO 
50 58 0D! 6 CMPL R8,RO ; Have we done all the queues? 
AC 12 o8 BNEQ 40$ :; Br if Not, repeat for remaining queue 
0 01 9A % 100$: MOVZBL #1,R0 ; Success indicator 
0066 8F BA 71 POPR #*M<R1,R2,R5,R6> ; Restore registers 
05 ¢ RSB 
a 
? ; We have found the first incompatible lock | 
5618 77 1208: + SuBL #LKISC_LENGTH,R6 ; Any room left in buffer? | 
é 1 4 BLSS 100$ ; Br if not 
fat! 30 7 BSBW LOCK_INFO : Else, return lock info. 
57 38 A 00 + 130$: MOVL LEOSE _SOFL (RT) AT : Get next lock in queue 
Ss HW 1 CMPL R7,R ; Reached end of queue? 
F 3 ¢ BEQL 140$ ; Br if Yes, skip to next queue | 
57 » ¢ SUBL Fureet sere 87 ; Back up to point at start of LKB 
EA 11 ¢ BRB 1206 ; Return the lock info. 
58 08 co $ 140$: ADDL #8 ,R8 ; Advance R8 one queue header 
57 «68 9E MOVA ~LKBSL_SQFL(R8) ,R7 ; Prepare to process that queue 
2 C1 $ ADDL #RSBSL yiorhs - ; Get address past end of queues 
50 SOA LKBSL_RSB(R ),RO 
50 58 01 0 CMPL R8,R ; Have we done all queues? 
D1 «13 91 BEQL bs : Br if Yes, leave — 
DF i 92 BRB 150$ ; Else, loop thru remaining queues 
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E = Allocate a system buffer -SEP-1984 05:5 SYS.SRCISYSGETLKI.MAR;1 
1595 ~SBTTL LKI_ALLOCATE = Allocate a system buffer 

138 oe 

98 ¢ FUNCTIONAL DESCRIPTION: 

1600 : This routine attempts to allocate a system buffer and intialize 
1 13 the structure type. 

16 : CALLING SEQUENCE: 

1605 ; JSB/BSB 

1807 > INPUTS: 

1609 : R6 Size of desired buffer minus header 

1611 : IMPLICIT INPUTS: 

1818 ; IPL = IPL$_SYNCH 

1615 : OUTPUTS: 

1819 : RO Completion status for request 

1618 ; R2 Address of the system buffer at data portion of buffer 
191? : R10 Address of start of the system buffer 

16 1 ; SIDE EFFECTS: 

16 g ; none 

16 $ LKI_ALLOCATE: 

16 PUSHR #*M<R1,R3,R4> ; Save registers 

16 3 MOVL SHOES .CURPCE AG ; Get PCB address 

1 , ADDL3 #12,R6,R1 ; i Get PCB size of system buffer 
1631 : NOTE: The exec routine EXESBUFFRQUOTA cannot be called, since 
1 § ; it will lower IPL and destroy all synchronization. 

1634 MOVZUL 10CS$GW_MAXBUF ,RO ; Get maximum buffer size allowed 
1635 CMPL r . yy ter too big? 

16 § BGTRU 2 5 FP error 

16 MOVL yet JIBCR4) ,RO 5 bee " address 

16 8 CMPL 1, JI6$L_BYTLM(RO) 3; Is BYTLM quota okay? 

16 BGTRU ; Br if not, error 

1640 CMPL R1 ,JIBSL_BYTCNT (RO) : Is BYTCNT quate okay? 

1641 BGTRU ; Or if not 

1648 JSB £ XESALONONPAGED : Try and allecate © buffer 

164 BLBC " : be” if fail 

1968 MOVL R2,R10 ; Set aeirons of buffer to deallocate 
1666 : Initialize structure header 

1648 fLROQ (R2)s : lero return size, unused fields 
164 MOV R1,(R2)+ ; Set structure size 

1650 MOV #DYNSC BUF IO, (R2)+ ; Set structure type 

1651 108 POPR #*M<R17R5,R4> ; Restore registers 
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05 4 H } § RSB 
: ° ; Set error return 
- rf if 2 noes Bree 15g o-EXQUOTA ™ ; Return to caller 
F 
: MOVZ2WL 9 #SSS_INSFMEM,RO ; Set error return 
7 et if a 18 ™ BRB 108 ; Return to caller 
HS 183s 
716 1661 - END 
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Symbol table -SEP=1984 05:55:51 (CSYS.SRCISYSGETLKI.MAR;1 (12) 
$11 5 % LKBSL_REMLKID = 4 
ACBSL_KAST 2 LKBSL_RSB s 0 

ACB_L- COUNT eC LKBSL_SQBL = 

ACB_L_DADDR LKBSL_SQFL = 

ACB_L-EFN LKB$S_MODE = 

ACB_L-ILIST LKBSV_MODE = 

ACB_L-10SB 4 LKBSV_MSTCPY = 4 
ACB-L-OPID 8 LKBSW_REFCNT = 4C 

ASTAOR = 9 4 LKBSW-STATUS = 3h 

ASTPRM 0 18 LkBTBC ; R 02 
STRI 0000001 LKISC_LENGTH = 00 1 

CHECKITEM 0000 NF3 R LR ISC_LKBTYPE = 8 8 9) 

CHECK SPC 2AD R LKISC“RSBTYPE s 2 
CLUSGC_CLUB tererere =X LKISC"WAITING = FFFFFFFF 
CLUB$L-LOCAL_CSID = 00000060 LKISSEARCH_BLOCKEDBY 0000060D RG 0 
CSTRIN = 0000000 LKISSEARCH BLOCKING 0000056C RG 0 
DYNSC_BUF IO = 0000001 LKISSND_BLRBY teneeeee = X 0 
EFN = 00000004 LKISSNO-BLKING eereneee =X 0 
EXESALONONPAGED terereee XxX 0 LKISSND-LOCKS eereeeee = X 0 
EXESDEANONPAGED eeeeeeee = =X 0 LKISSND-STDREQ eeneeere = X 0 
EXESGETLKI 00000000 RG 0 LKISV_SYSNAM = 0000001F 
EXESIPID TO_EPID eeereeee =X 0 LKI$_BLOCKEDBY 2 ae tae: 
EXESPROBEW teereree§ = X 0 LKI$_BLOCKING = 0000020 
EXE GETLKI 00000098 R 0 LKIS_LASTLKB = 00000106 
GETCKB 00000493 R 0 LKIS_LASTRSB = 00000209 
GET_REMLKI 44 R 0 LKIS_LCKCOUNT = 00000205 

RET 000001 R 0 LKIS_LCKREF CNT = 00000103 
10C$GW_MAXBUF tereeeeer = X 0 LKIS_LOCKID = 00000104 
= 0000001 LKIS$_LOCKS = Ha £443 

IPL$_ASTDEL = 0000000 LKIS_NAMSPACE = 0000020 
IPL$_SYNCH = 0000000 LKI$_PARENT = 0000010 

ITMLST = 0000000C LKI$_PID = 0000010 
JIBSL_BYTCNT = 00000020 LKI$S_REMLKID = 00000105 
JIBSL_BYTLM = 00000024 LKI$S_RESNAM = ese Ch 
LCKSCRECK_STALL eeeeeeee = =X 02 LKIS_RSBREF CNT = 00000202 
LCKSCOMPAT TBL tererere = KX 0 LKIS_STATE = 00000101 
LCKS$GL_IDTBL terereee = KX 0 LKIS"SYSTEM z ae toe 
LCKSGL_MAXID eeneeeee = = X 0 LKI$_VALBLK = 00000203 
LCKSK_CWMODE = 0000000 LKID = 4b 
LCKSK_PRMODE = 0000000 LKI_ALLOCATE 00006C9 R 02 
LCKSK E = aia 4 LOCAL_SPACE = FFFFFFFS 
LIMSGSK_ZERO = 00000 LOCK_INFO 000005 38 R 08 
LIMSGS$L_LCKCOUNT = 0000002C MAXCOUNT 00000000 R 0 
LIMSGS$L_RSBREF CNT = 9 8 8 MAXSTRUC = 82888 ¢ 
LIMSGSL_STATE = MAX_LKB_ITEM = 

LIMSG$Q° VALBLK = 000 9 RSB_ITEM = O6 8 8 
LKB$B_GRMODE = 000 MOVEIT $ AR 02 
LKB$B_ROMODE = 4 PCB$L_JIB = 0080 
LKBSB_STAT = PCBSL_PID PY 0 

LKBSK~ CONVERT = PCBSQ-PRIV = 4 
LKBSK~GRANTE = CBSW"ASTCNT 2 8 
LKBSK_WAITING = FFFFFFFE PCBSW- GRP = 5 
LKBSL-CSID = 58 PRS_IPL s 1 
LKBSL_EPID s 14 PRVSV_SYSLCK = +3 

tees -PAneNT = Hoag09e8 renee = H100000 

= . 
LKBSL-PID = 00 0c PSLSC"KERNEL = 000 $0 
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SPCBLOCKING 
SP OUNT 


srt. ee 
SPCREMLKID 


SPC“STATE 
SPC" SYSTEM 
spet 


Ss MEM 
SS$"IVLOCKID 


SS$_NOSYSLCK 
$~ L 
SYSSDCLAST 
VALUE 
VERIFYLOCKID 


PSECT name 
asss 
WSYSGETLKI 
YEXEPAGED 


E 
SS$_NOMORELOCK 
S$_NORMAL 
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PSECT No. Attributes 
e-} 0 ( 9. NOPIC USR CON ABS LCL a rt NOEXE NORD NOWRT NOVEC BYTE 
48.) 1 ¢ -) NOPIC USR CON ABS LCL NOSHR EXE R&D WRT NOVEC BYTE 
1814.) § ( §°} NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC BYTE 
8.) ( -) NOPIC USR REL LCL NOSHR EXE RD WRT NOVEC BYTE 
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! Performance indicators ! 


oe eee 


Phase Page faults CPU Time Elapsed Time 
Initialization 4 .07 :00:00.3 
pomnene processing ] 7 :00°62 :00: 34 
Symbol table sort p :90 :08. 

28 9) :11. 
4 table output 19 :00:00. 9 : ae 
Psect synopsis output :00:00. : -03 
Cross-reference output 00:00. : ‘ 2 
Assembler cun totals 96 :00:28. :01 . 


1¥e york ing set i‘ets was 2100 pages. 

bytes i (225 pages) of virtual memory were used ee buffer the intermediate code. 
There were 100 pages of symbol table ,fpace ucing. 2 ob hold 1809 non-local and 102 local symbols. 
1661 source ne A were read in Pass 1, producin object records in Pass 2. 


39 pages of wirtual memory were used to define & 8 macros. 


p ites wwe een een ewe m enc oe ne + 


Macro Library name 
$255$DUA28: CSHRLIBICLUSTER.MLB; 1 1 
$255$D0UA28:CSYS.OBJJLIB.MLB; 1 18 
BTN 8: SYS IBISTARLET. MLB;2 1 
TOTALS (all Libraries) 32 


1957 GETS were required to define 32 macros. 
There were no errors, warnings or information messages. 
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